bài 1

BÀI 3

uses crt;
var a: array[1..100] of integer;
i,n,max,s,j: integer;
begin
clrscr;
writeln(' nhap so phan tu cua day'); readln(n);
for i:=1 to n do
begin
writeln('a[',i,']'); readln(a[i]);
end;
max:=a[1];
s:=0;
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
s:=s+a[i];
end;
writeln('so lon nhat trong day tren la:',max);
writeln('tong bang:',s);
writeln('so nguyen to trong mang la:');
j:=1;
for i:=1 to n do
if a[i]>1 then
begin
repeat
inc(j);
until (a[i] mod j=0);
if j>(a[i] div 2) then writeln(a[i]);
j:=1;
end;
readln
end.

tức là từ a cộng mấy đến a+n vậy bạn?

Bài 1: 

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

for i:=1 to n do 

  s:=s+1/(2*i+1);

writeln(s:4:2);

readln;

end.

a. Liệt kê

Bước 1: Nhâp N

Bước 2: i←1; s←0;

Bước 3: Nếu i>N thì in ra S rồi kết thúc

Bước 4: S←S+i;

Bước 5: i←i+1, quay lại bước 3

b. 

Bước 1: Nhâp N

Bước 2: i←1; s←1;

Bước 3: Nếu i>N thì in ra S rồi kết thúc

Bước 4: S←S+i*5;

Bước 5: i←i+1, quay lại bước 3

c.

Bước 1: Nhâp N và dãy a₁,a₂,a₃,...,a_N

Bước 2: i←1; s←1;

Bước 3: Nếu i>N thì in ra S rồi kết thúc

Bước 4: S←S+1/a_i;

Bước 5: i←i+1, quay lại bước 3

d.

Bước 1: Nhâp N,K và dãy a₁,a₂,a₃,...,a_N

Bước 2: i←1; d←0;

Bước 3: Nếu i>N thì in ra d rồi kết thúc

Bước 4: Nếu a_i<K thì d←d+1;

Bước 5: i←i+1, quay lại bước 3

Lời giải:

$n=1$ thì $S=0$ nguyên nhé bạn. Phải là $n>1$

\(S=1-\frac{1}{1^2}+1-\frac{1}{2^2}+1-\frac{1}{3^2}+...+1-\frac{1}{n^2}\)

\(=n-\underbrace{\left(1+\frac{1}{2^2}+\frac{1}{3^2}+...+\frac{1}{n^2}\right)}_{M}\)

Để cm $S$ không nguyên ta cần chứng minh $M$ không nguyên. Thật vậy

\(M> 1+\frac{1}{2.3}+\frac{1}{3.4}+...+\frac{1}{n(n+1)}=1+\frac{1}{2}-\frac{1}{3}+\frac{1}{3}-\frac{1}{4}+....+\frac{1}{n}-\frac{1}{n+1}\)

\(M>1+\frac{1}{2}-\frac{1}{n+1}>1\) với mọi $n>1$

Mặt khác:

\(M< 1+\frac{1}{1.2}+\frac{1}{2.3}+...+\frac{1}{(n-1)n}=1+\frac{1}{1}-\frac{1}{2}+\frac{1}{2}-\frac{1}{3}+....+\frac{1}{n-1}-\frac{1}{n}\)

\(M< 1+1-\frac{1}{n}< 2\)

Vậy $1< M< 2$ nên $M$ không nguyên. Kéo theo $S$ không nguyên.

Bạn tự khai báo nhé!;

Ảnh nhỏ thì nhấn mở hình ảnh trong tab mới nha

4...

begin

repeat

write('N= '):

readln(n);

until n>0;

s:=0;

for i:=1 to n do

s:=s+1/n;

write('s= ',s);

readln

end.